;; Copyright 2020 Google LLC
;;
;; Licensed under the Apache License, Version 2.0 (the License);
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;;     http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an AS IS BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

(library (define-function-lambda)
  (export do-test)
  (import (rnrs))

  (define f (lambda () #t))
  (define g (lambda (a) 'b))
  (define h (lambda (a b) b))

  (define (do-test)
    (and (f) (eq? 'b (g 'a)) (eq? 2 (h 1 2)))))
